object fmBaseBrowser: TfmBaseBrowser
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMaximize]
  ClientHeight = 367
  ClientWidth = 726
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 170
    Top = 26
    Height = 341
    ResizeStyle = rsLine
    ExplicitLeft = 152
    ExplicitTop = 188
    ExplicitHeight = 100
  end
  object pnlRight: TPanel
    Left = 173
    Top = 26
    Width = 553
    Height = 341
    Align = alClient
    BevelOuter = bvNone
    Padding.Top = 3
    Padding.Right = 3
    Padding.Bottom = 3
    TabOrder = 0
    object lblBrowser: TLabel
      Left = 0
      Top = 3
      Width = 550
      Height = 25
      Align = alTop
      Alignment = taCenter
      AutoSize = False
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
      Visible = False
      ExplicitLeft = 1
      ExplicitTop = 143
      ExplicitWidth = 548
    end
    object pnlRightBottom: TPanel
      Left = 0
      Top = 122
      Width = 550
      Height = 216
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      Visible = False
      object tbctrlDetails: TcxTabControl
        Left = 0
        Top = 0
        Width = 550
        Height = 216
        Align = alClient
        TabOrder = 0
        Properties.CustomButtons.Buttons = <>
        LookAndFeel.Kind = lfOffice11
        OnChange = tbctrlDetailsChange
        ClientRectBottom = 216
        ClientRectRight = 550
        ClientRectTop = 0
        object grdDetails: TcxGrid
          Left = 0
          Top = 0
          Width = 550
          Height = 216
          Align = alClient
          TabOrder = 0
          LookAndFeel.Kind = lfOffice11
          object tvDetails: TcxGridDBTableView
            Navigator.Buttons.CustomButtons = <>
            DataController.DataSource = dsDetails
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            OptionsSelection.CellSelect = False
            OptionsView.GroupByBox = False
            object tvDetailsColumn1: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn2: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn3: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn4: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn5: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn6: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn7: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn8: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn9: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn10: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn11: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn12: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn13: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn14: TcxGridDBColumn
              Visible = False
            end
            object tvDetailsColumn15: TcxGridDBColumn
              Visible = False
            end
          end
          object lvDetails: TcxGridLevel
            GridView = tvDetails
          end
        end
      end
    end
    object grdBrowser: TcxGrid
      Left = 0
      Top = 28
      Width = 550
      Height = 94
      Align = alClient
      TabOrder = 1
      LookAndFeel.Kind = lfOffice11
      object tvBrowser: TcxGridDBBandedTableView
        OnDblClick = tvBrowserDblClick
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = dsBrowser
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsSelection.CellSelect = False
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        OptionsView.BandHeaders = False
        OptionsView.FixedBandSeparatorWidth = 0
        OnColumnHeaderClick = tvBrowserColumnHeaderClick
        Bands = <
          item
            FixedKind = fkLeft
          end
          item
          end>
        object tvBrowserId: TcxGridDBBandedColumn
          Position.BandIndex = 0
          Position.ColIndex = 0
          Position.RowIndex = 0
        end
      end
      object lvBrowser: TcxGridLevel
        GridView = tvBrowser
      end
    end
  end
  object pnlLeft: TPanel
    Left = 0
    Top = 26
    Width = 170
    Height = 341
    Align = alLeft
    BevelOuter = bvNone
    Padding.Left = 3
    Padding.Top = 3
    Padding.Bottom = 3
    TabOrder = 5
    object vstClasses: TVirtualStringTree
      Left = 3
      Top = 3
      Width = 167
      Height = 335
      Align = alClient
      Header.AutoSizeIndex = 0
      Header.Font.Charset = DEFAULT_CHARSET
      Header.Font.Color = clWindowText
      Header.Font.Height = -11
      Header.Font.Name = 'Tahoma'
      Header.Font.Style = []
      Header.MainColumn = -1
      Header.Options = [hoColumnResize, hoDrag]
      Images = dmImages.ilMain
      TabOrder = 0
      TreeOptions.SelectionOptions = [toFullRowSelect]
      OnFocusChanged = vstClassesFocusChanged
      OnGetText = vstClassesGetText
      OnGetImageIndex = vstClassesGetImageIndex
      Columns = <>
    end
  end
  object dsBrowser: TDADataSource
    DataSet = tblBrowser.Dataset
    DataTable = tblBrowser
    Left = 200
    Top = 184
  end
  object tblBrowser: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rdaBrowser
    AfterScroll = tblBrowserAfterScroll
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 230
    Top = 184
  end
  object bmBrowser: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    CanCustomize = False
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = dmImages.ilMain
    LookAndFeel.Kind = lfOffice11
    LookAndFeel.NativeStyle = False
    PopupMenuLinks = <>
    UseSystemFont = True
    Left = 232
    Top = 218
    DockControlHeights = (
      0
      0
      26
      0)
    object BarMain: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 1'
      CaptionButtons = <>
      DockedDockingStyle = dsTop
      DockedLeft = 0
      DockedTop = 0
      DockingStyle = dsTop
      FloatLeft = 691
      FloatTop = 8
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbtnNew'
        end
        item
          Visible = True
          ItemName = 'bbtnEdit'
        end
        item
          BeginGroup = True
          UserDefine = [udPaintStyle]
          UserPaintStyle = psCaptionGlyph
          Visible = True
          ItemName = 'bbtnRefresh'
        end
        item
          Visible = True
          ItemName = 'bbtnView'
        end
        item
          Visible = True
          ItemName = 'bbtnDelete'
        end
        item
          BeginGroup = True
          UserDefine = [udPaintStyle]
          UserPaintStyle = psCaptionGlyph
          Visible = True
          ItemName = 'bbtnExport'
        end
        item
          BeginGroup = True
          UserDefine = [udWidth]
          UserWidth = 126
          Visible = True
          ItemName = 'bedtFilter'
        end
        item
          Visible = True
          ItemName = 'bbtnSearch'
        end>
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      Visible = True
      WholeRow = False
    end
    object bbtnNew: TdxBarButton
      Caption = #26032#22686
      Category = 0
      Hint = #26032#22686'(Ctrl + N)'
      Visible = ivAlways
      ImageIndex = 191
      PaintStyle = psCaptionGlyph
      ShortCut = 16462
      OnClick = bbtnNewClick
    end
    object bbtnEdit: TdxBarButton
      Caption = #32534#36753
      Category = 0
      Hint = #32534#36753'(Ctrl + E)'
      Visible = ivAlways
      ImageIndex = 151
      PaintStyle = psCaptionGlyph
      ShortCut = 16453
      OnClick = bbtnEditClick
    end
    object bbtnDelete: TdxBarButton
      Caption = #21024#38500
      Category = 0
      Hint = #21024#38500'(Ctrl + D)'
      Visible = ivAlways
      ImageIndex = 181
      PaintStyle = psCaptionGlyph
      ShortCut = 16452
      OnClick = bbtnDeleteClick
    end
    object bbtnView: TdxBarButton
      Caption = #26597#30475
      Category = 0
      Hint = #26597#30475'(Ctrl + V)'
      Visible = ivAlways
      ImageIndex = 182
      PaintStyle = psCaptionGlyph
      ShortCut = 16470
      OnClick = bbtnViewClick
    end
    object bbtnRefresh: TdxBarButton
      Caption = #21047#26032
      Category = 0
      Hint = #21047#26032'(Ctrl + R)'
      Visible = ivAlways
      ImageIndex = 158
      ShortCut = 16466
      OnClick = bbtnRefreshClick
    end
    object bedtFilter: TdxBarEdit
      Category = 0
      Visible = ivAlways
      OnKeyDown = bedtFilterKeyDown
      ShowCaption = True
    end
    object bbtnExport: TdxBarButton
      Caption = #23548#20986
      Category = 0
      Hint = #23548#20986
      Visible = ivAlways
      ImageIndex = 116
      OnClick = bbtnExportClick
    end
    object bbtnSearch: TdxBarButton
      Caption = #26597#35810
      Category = 0
      Hint = #26597#35810
      Visible = ivAlways
      OnClick = bbtnSearchClick
    end
  end
  object rdaBrowser: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = ClientDataModule.RemoteService
    GetDataCall.RemoteService = ClientDataModule.RemoteService
    GetDataCall.MethodName = 'SQLGetData'
    GetDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'aSQLText'
        DataType = rtString
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aIncludeSchema'
        DataType = rtBoolean
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aMaxRecords'
        DataType = rtInteger
        Flag = fIn
        Value = Null
      end>
    GetDataCall.Default = False
    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
    GetDataCall.IncomingDataParameter = 'Result'
    GetDataCall.OutgoingIncludeSchemaParameter = 'aIncludeSchema'
    GetDataCall.OutgoingMaxRecordsParameter = 'aMaxRecords'
    UpdateDataCall.RemoteService = ClientDataModule.RemoteService
    GetScriptsCall.RemoteService = ClientDataModule.RemoteService
    RemoteService = ClientDataModule.RemoteService
    DataStreamer = ClientDataModule.DataStreamer
    Left = 260
    Top = 184
  end
  object sdlgExport: TRzSaveDialog
    Left = 396
    Top = 160
  end
  object rdaDetails: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = ClientDataModule.RemoteService
    GetDataCall.RemoteService = ClientDataModule.RemoteService
    GetDataCall.MethodName = 'SQLGetData'
    GetDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'aSQLText'
        DataType = rtString
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aIncludeSchema'
        DataType = rtBoolean
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aMaxRecords'
        DataType = rtInteger
        Flag = fIn
        Value = Null
      end>
    GetDataCall.Default = False
    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
    GetDataCall.IncomingDataParameter = 'Result'
    GetDataCall.OutgoingIncludeSchemaParameter = 'aIncludeSchema'
    GetDataCall.OutgoingMaxRecordsParameter = 'aMaxRecords'
    UpdateDataCall.RemoteService = ClientDataModule.RemoteService
    GetScriptsCall.RemoteService = ClientDataModule.RemoteService
    RemoteService = ClientDataModule.RemoteService
    DataStreamer = ClientDataModule.DataStreamer
    Left = 382
    Top = 270
  end
  object tblDetails: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    ReadOnly = True
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 346
    Top = 270
  end
  object dsDetails: TDADataSource
    DataSet = tblDetails.Dataset
    DataTable = tblDetails
    Left = 310
    Top = 270
  end
end
